home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / Modula-2 / CaseConvert / scanner.def < prev    next >
Text File  |  1986-08-05  |  589b  |  30 lines
  1. DEFINITION MODULE Scanner;
  2.  
  3. (* This module scans Modula-2 sources and extracts four different
  4.    tokens:
  5.    - identifiers
  6.    - start/end of comment
  7.    - start or end of a literal
  8.  
  9.    Created: 5/5/86  by Richie Bielak
  10.  
  11.    Modified:
  12.  
  13.  
  14.  
  15.    Copyright (c) 1986 - by Richie Bielak
  16.    
  17.    This program maybe freely copied, but please leave my name in.
  18.    Thanks....Richie
  19.  
  20. *)
  21. TYPE
  22.   TokenType = 
  23.      (Null, OpenComment, CloseComment, Identifier, SingleQ, DoubleQ);
  24.  
  25.   PROCEDURE GetToken (VAR Token : TokenType;     
  26.                       VAR Value : ARRAY OF CHAR)
  27.               : BOOLEAN;
  28.  
  29. END Scanner.
  30.